home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
MODE-MOT.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
5KB
|
42 lines
;;; compiled by @win386 on Sat Mar 13 01:39:20 1993
;;; from file c:/src/lucid-19.4/lisp/prim/mode-mot.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(defvar mode-motion-hook nil "\
Function or functions which are called whenever the mouse moves.
You should normally use this rather than `mouse-motion-handler', which
does some additional window-system-dependent things. This hook is local
to every buffer, and should normally be set up by major-modes which want
to use special highlighting. Every time the mouse moves over a window,
the mode-motion-hook of the buffer of that window is run.")
(byte-code "└┴!ê┬├!¼é─└├!ê┼╞Mç" [make-variable-buffer-local mode-motion-hook boundp mode-motion-extent nil mode-motion-highlight-internal #[(event backward forward) "└ !ë½à├\n!¬é─ \n¡â╞\n!ë¡â╚ ! ¡╪èqê ½▓ bê╩╦╠Åê` ╩═╬Åê½Å╨!½ë╤ `#¬¬╥ `\"╙╘\"¬£¡ÿ╨!¡Æ╒!╓!=?¡å╤╫ë#),ç" [event-window event window window-screen selected-screen screen window-buffer buffer event-point point nil (funcall backward) ((error)) (funcall forward) ((error)) mode-motion-extent extent-buffer set-extent-endpoints make-extent set-extent-attribute highlight extent-start-position extent-end-position 1] 5]] 2)
(fset 'mode-motion-highlight-line #[(event) "└ ┬├#ç" [mode-motion-highlight-internal event beginning-of-line end-of-line] 4 "\
For use as the value of `mode-motion-hook' -- highlight line under mouse."])
(fset 'mode-motion-highlight-word #[(event) "└ ┬├#ç" [mode-motion-highlight-internal event #[nil "└└┬=½â├¬ç ¼â─¬ü┼╞╔!½Æ╩ ê╔!½à╩ ê¬u└u¬û╔!¡É╩ ê╔!½à╩ ê¬u└u+ç" [nil symbolp t "\\w\\|\\s_\\|\\s'" "\\w" "[^ \n]" "[ ]" white-space word-constituent looking-at backward-char] 2] #[nil "└┴!ç" [mouse-track-end-of-word nil] 2]] 4 "\
For use as the value of `mode-motion-hook' -- highlight word under mouse."])
(fset 'mode-motion-highlight-symbol #[(event) "└ ┬├#ç" [mode-motion-highlight-internal event #[nil "└└ë=½â┬¬ç ¼â├¬ü─┼╚!½Æ╔ ê╚!½à╔ ê¬u╩u¬û╚!¡É╔ ê╚!½à╔ ê¬u╩u+ç" [t symbolp "\\w\\|\\s_\\|\\s'" "\\w" "[^ \n]" "[ ]" white-space word-constituent looking-at backward-char nil] 2] #[nil "└┴!ç" [mouse-track-end-of-word t] 2]] 4 "\
For use as the value of `mode-motion-hook' -- highlight symbol under mouse."])
(fset 'mode-motion-highlight-sexp #[(event) "└ ┬├#ç" [mode-motion-highlight-internal event #[nil "gz└U?¡à┴`┬\"bç" [40 scan-sexps -1] 3] #[nil "gz└U½â┴uê┬`┴\"bç" [41 1 scan-sexps] 3]] 4 "\
For use as the value of `mode-motion-hook' -- highlight form under mouse."])
(byte-code "└┴Mê┬├Mç" [minibuf-mouse-tracker #[(event) "┴=├┼╞#)ç" [minibuffer-completion-table read-file-name-internal filename-kludge-p mode-motion-highlight-internal event #[nil "½â┴¬ü┬ë┬=½â─¬ç¼â┼¬ü╞╟ ╩ !½Æ╦ ê╩ !½à╦ ê¬u╠u¬û╩!¡É╦ ê╩!½à╦ ê¬u╠u+ç" [filename-kludge-p nonwhite t symbolp "\\w\\|\\s_\\|\\s'" "\\w" "[^ \n]" "[ ]" white-space word-constituent looking-at backward-char nil] 3] #[nil "`└├½â┼¬ü╞!ê\n`U¼ä¼ä\nb¬┐\n`{½ä╚ !╔ \n#ë╞=«Ñ ܽ¥\n?«Ü\n;«ò\n╠!½ç═ \"¬ü !«é\nb)*ç" [nil string p mouse-track-end-of-word filename-kludge-p nonwhite t minibuffer-completion-table minibuf-select-kludge-filename try-completion minibuffer-completion-predicate comp vectorp intern-soft] 5]] 4] minibuf-select-kludge-filename #[(string) "èqê┴┬├ !P!)ç" [mouse-grabbed-buffer expand-file-name file-name-directory buffer-string string] 3]] 2)
(fset 'minibuf-select-highlighted-completion #[(event) "┴=┬ëè╞!ê╚╔!!qê\n½ï╦\n!╠\n!U½ä═¬ó╦\n!╠\n!{½ä╬!╧\n╨ë#êqê╥ êcê)½í╙╒!\"ë½å╪!¬ï½à┘┌!¬â┘█!)¬ÿ▄▌ !ê½î▐!½çdbê▀ ¬äαß┬\"+ç" [minibuffer-completion-table read-file-name-internal nil command-p completion filename-kludge-p minibuf-mouse-tracker event window-buffer event-window mode-motion-extent extent-start-position extent-end-position t minibuf-select-kludge-filename set-extent-endpoints 1 mouse-grabbed-buffer erase-buffer lookup-key global-map vector current-mouse-event command call-interactively error "Highlighted words are valid completions. You may select one." "no completions" select-window minibuffer-window file-directory-p minibuffer-completion-help throw exit] 5 "\
Select the highlighted text under the mouse as a minibuffer response.
When the minibuffer is being used to prompt the user for a completion,
any valid completions which are visible on the screen will highlight
when the mouse moves over them. Clicking \\<minibuffer-local-map>\\[minibuf-select-highlighted-completion] will select the
highlighted completion under the mouse.
If the mouse is clicked while while not over a highlighted completion,
then the global binding of \\[minibuf-select-highlighted-completion] will be executed instead. In this
way you can get at the normal global behavior of \\[minibuf-select-highlighted-completion] as well as
the special minibuffer behavior." "e"])
(byte-code "└ ┬├#ê─┼!ç" [define-key minibuffer-local-map button2 minibuf-select-highlighted-completion provide mode-motion] 4)